﻿Imports System.Data
Imports System.Data.SqlClient
Imports BEGestionProyecto
Imports DLGestionProyecto

Public Class BLGPActividad
#Region "CONSULTAR"
    '*********************************************************
    'Funcion que Lista los Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLListarActividad(ByVal psActDescActividad As String) As DataTable
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPActividad
            lDt = lBL.fuDLListarActividad(psActDescActividad)
            Return lDt
        Catch ex As Exception
            Throw New ArgumentException("Origen : fuBLListarActividad " & vbCrLf & _
                                        "Descripcion : " & ex.Message)
        End Try
    End Function

    '*********************************************************
    'Funcion que Lista los Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLBuscarActividadx(ByVal psActcodActividad As Integer) As DataTable
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPActividad
            lDt = lBL.fuDLBuscarActividadx(psActcodActividad)
            Return lDt
        Catch ex As Exception
            Throw New ArgumentException("Origen : fuBLBuscarActividadx " & vbCrLf & _
                                        "Descripcion : " & ex.Message)
        End Try
    End Function

#End Region
#Region "ACTUALIZAR"
    '*********************************************************
    'Funcion que Agrega Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLInsertarActividad(ByVal pBE As BEGPActividad) As Boolean
        Try

            Dim lBL As New DLGestionProyecto.DLGPActividad
            If lBL.fuDLInsertarActividad(pBE) Then
                Return True
            End If
        Catch ex As Exception
            Throw New ArgumentException("Origen : fuBLInsertarActividad " & vbCrLf & _
                                        "Descripcion : " & ex.Message)

        End Try
    End Function

    '*********************************************************
    'Funcion que Agrega Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLActualizarActividad(ByVal pBE As BEGPActividad) As Boolean
        Try

            Dim lBL As New DLGestionProyecto.DLGPActividad
            If lBL.fuDLActualizarActividad(pBE) Then
                Return True
            End If
        Catch ex As Exception
            Throw New ArgumentException("Origen : fuBLActualizarActividad " & vbCrLf & _
                                        "Descripcion : " & ex.Message)

        End Try
    End Function

    '*********************************************************
    'Funcion que Agrega Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLEliminarActividad(ByVal piActcodActividad As Integer, ByVal psActcodUserModifica As String) As Boolean
        Try

            Dim lBL As New DLGestionProyecto.DLGPActividad
            If lBL.fuDLEliminarActividad(piActcodActividad, psActcodUserModifica) Then
                Return True
            End If
        Catch ex As Exception
            Throw New ArgumentException("Origen : fuBLActualizarActividad " & vbCrLf & _
                                        "Descripcion : " & ex.Message)

        End Try
    End Function



#End Region
End Class
